home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 67 / 067.d81 / font changer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  93 lines
  1. 1 ifpeek(787)<>1thensys57812"fnt",8,0:poke780,0:poke781,0:poke782,56:sys65493
  2. 2 poke787,1:ifch=1thenpoke53272,31:goto27
  3. 3 poke53272,31:poke53281,0:poke53280,0:print"[147][158]":poke55,0:poke56,56:clr
  4. 4 f1$="[204][207][193][196][211][212][193] [210]":f2$="[208] [210] [197] [211] [197] [206] [212] [211]":f3$="[194][217]":f4$="[202][197][198][198][210][197][217] [204]. [202][207][206][197][211]"
  5. 5 s=54272:fori=0to24:pokes+l,0:next
  6. 6 pokes+1,100:pokes+5,9:pokes+24,15
  7. 7 c(1)=15:c(2)=12:c(3)=11:f$="   [198][160][207][160][206][160][212][160][160][160][195][160][200][160][193][160][206][160][199][160][197] [210]":mu=1
  8. 8 c(7)=11:c(6)=12:c(5)=15:c(4)=12:fori=1to6:readfo$(i):fo$(i)=fo$(i)+" [198][207][206][212]"
  9. 9 next:readfo$(7),fo$(8),fo$(9):i=0
  10. 10 goto24
  11. 11 poke646,6:print""spc(5)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  12. 12 forc=1to5:printspc(5)"[221]                             [221]":next
  13. 13 printspc(5)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":gosub14:return
  14. 14 poke198,0:poke214,6:print:print:forc=1to10:poke646,14:ifmu=cthenpoke646,7
  15. 15 printtab(20-len(fo$(c))/2)fo$(c):next:mu=9:c=6:mu=1
  16. 16 poke214,18:print:print"   [158] [213][211][197] [195][213][210][211][207][210]/[210][197][212][213][210][206] [212][207][160][211][197][204][197][195][212] [198][207][206][212] "
  17. 17 print"   [155]abcdefghijklmnopqrstuvwxyz   12345"
  18. 18 print"   [193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]   67890[145]":return
  19. 19 poke646,c(i+2):print""spc(13)f1$
  20. 20 poke646,c(i+1):printspc(13)f2$
  21. 21 poke646,c(i):printspc(6)f$
  22. 22 poke646,c(i+1):printspc(19)f3$
  23. 23 poke646,c(i+2):printspc(12)f4$:return
  24. 24 gosub11:goto27
  25. 25 i=i+1:ifi=5theni=1
  26. 26 gosub19:return
  27. 27 geta$:gosub43:gosub25:ifa$=""then27
  28. 28 um=mu:ifa$="[145]"thenmu=mu-1:ifmu<1thenmu=9
  29. 29 ifa$=""thenmu=mu+1:ifmu>9thenmu=1
  30. 30 ifa$=chr$(13)then45
  31. 31 poke214,6+um:print:printtab(20-len(fo$(um))/2)"[154]"fo$(um)
  32. 32 poke214,6+mu:print:printtab(20-len(fo$(mu))/2)"[158]"fo$(mu):goto27
  33. 33 i=1:gosub19
  34. 34 ifa$="q"then36
  35. 35 ch=1:loadfi$,8,1
  36. 36 fori=62464to62564:pokei,0:next
  37. 37 poke787,0:open15,8,15,"r0:loadstar briefs=loadstar briefs":input#15,er
  38. 38 close15:poke53272,21
  39. 39 ifer<>63thenend
  40. 40 a$="loadstar briefs":q$=chr$(34):poke53281,0:poke53280,0:print"[147]"
  41. 41 print"[144]load"q$a$q$",8"
  42. 42 print"run":poke631,13:poke632,13:poke198,2:end
  43. 43 c=c+1:ifc>7thenc=1
  44. 44 poke646,c(c):poke214,6+mu:print:printtab(20-len(fo$(mu))/2)fo$(mu):return
  45. 45 ifmu>6then50
  46. 46 gosub60:ch=1:loadaa$+" font",8,1
  47. 47 data"[210][213][211][212][207][206]","[199][210][197][212][206][193]","[207][201][204] [195][201][212][217]","[195]-128"
  48. 48 data"[195]-64","[204][207][193][196][211][212][193][210]","[213][211][197][160][217][207][213][210][160][207][215][206][160][198][207][206][212]","[201][206][211][212][193][204][204][160][217][207][213][210] [206][197][215][160][198][207][206][212]"
  49. 49 data"[210][197][212][213][210][206][160][212][207][160][204][207][193][196][211][212][193][210] [194][210][201][197][198][211]"
  50. 50 onmu-6goto65,51,36
  51. 51 poke214,20:print:foru=1to2:print"                                      ";
  52. 52 next:print"":fa$="fnt"
  53. 53 foru=1to4:poke214,20:print:printtab(8)"[155][201][206][211][197][210][212] [211][201][196][197]"u"of [204][207][193][196][211][212][193][210]"
  54. 54 printtab(6)"[193][206][196][160][208][210][197][211][211][160][210][197][212][213][210][206][155]/ [158][209][155] [212][207][160][193][194][207][210][212]"
  55. 55 geta$:ifa$<>"q"anda$<>chr$(13)then55
  56. 56 ifa$="q"thenrun
  57. 57 fa$="fnt":close15:open15,8,15,"s0:fnt":close15
  58. 58 gosub86
  59. 59 pokes+4,37:fort=0to500:next:pokes+4,36:next:run
  60. 60 aa$="":fori=1tolen(fo$(mu))-5
  61. 61 a2$=mid$(fo$(mu),i,1)
  62. 62 ifa2$<"[193]"ora2$>"[218]"thenaa$=aa$+a2$:next:goto64
  63. 63 aa$=aa$+chr$(asc(a2$)-128):next
  64. 64 i=0:return
  65. 65 poke214,18:print:fori=1to5:print"                                      "
  66. 66 next:print"":poke214,19:print:print"[158][197]nter name of font: ";
  67. 67 poke53272,23:li=16:gosub75:poke53272,31:print:ifw$=""thenrun
  68. 68 poke214,19:print:print"          [159][201]nsert disk/[159]hit[158] [210][197][212][213][210][206]  "
  69. 69 geta$:ifa$<>chr$(13)then69
  70. 70 open15,8,15,"i0:":open2,8,2,w$+",p,r":input#15,e$,e$:ife$<>"ok"then74
  71. 71 get#2,a$,a$:fori=14336to15072step4:get#2,a$,a1$,a2$,a3$
  72. 72 pokei,asc(a$+chr$(0)):pokei+1,asc(a1$+chr$(0))
  73. 73 pokei+2,asc(a2$+chr$(0)):pokei+3,asc(a3$+chr$(0)):next:close2:run
  74. 74 print"[147]"e$:print"press a key...":poke198,0:wait198,1:run
  75. 75 w$="":print">[146][157]";:iflimit=0thenlimit=80
  76. 76 geta$:ifa$="[145]"ora$=""ora$="[157]"ora$=""ora$=""ora$="[147]"ora$=""then76
  77. 77 as=asc(a$):ifas=13oras=141oras=20then82
  78. 78 ifpeek(653)=2orpeek(653)=4then76
  79. 79 iflen(w$)=limitthenifas<>20andas<>13andas<>141then76
  80. 80 ifas=34or(as>=133andas<=140)or(as>=1andas<=31)then76
  81. 81 w$=w$+a$:printa$">[146][157]";:goto76
  82. 82 ifas=20andw$<>""thenw$=left$(w$,len(w$)-1):print"[157]<[146] [157][157]";:goto76
  83. 83 ifas=20andw$=""then76
  84. 84 ifas=13thenprint" ":limit=0:return
  85. 85 sys57812fa$,8:poke193,00:poke194,56:poke174,00:poke175,64:sys62954
  86. 86 poke780,2:poke781,8:poke782,2:sys65466
  87. 87 poke824,70:poke825,78:poke826,84
  88. 88 poke780,3:poke781,56:poke782,3:sys65469
  89. 89 poke251,0:poke252,56
  90. 90 poke780,251:poke781,0:poke782,64:sys65496
  91. 91 return
  92. 92 open15,8,15,"s0:font changer":close15:save"font changer",8:end
  93.